perm filename COMP1.PAL[AL,HE] blob sn#528520 filedate 1980-08-09 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.TITLE  Pseudo-code
C00004 ENDMK
C⊗;
;.TITLE  Pseudo-code

;File that requires all the compiled files.
;Overlaid on top of the interpreter. 

NEW == 0	;0 for old, 1 for new
;Only need to insert this during first pass
.IF1
	.IFNZ NEW
	  .PRINT /Experimental version - for use with ALX.SAV
/
	.ENDC

	.MACRO MAKEOP CNAME, ANAME	;Compiler name, Address name
	XX	CNAME
	.ENDM

	.IFNZ NEW
	  .INSRT ALHEAD.NEW[AL,HE]
	  .INSRT INTOPS.NEW[AL,HE]
	.IFF
	  .INSRT ALHEAD.PAL[AL,HE]
	  .INSRT INTOPS.PAL[AL,HE]
	.ENDC

	.MACRO ASCIE STR
	.ASCIZ ∃STR∃
	.EVEN
	.ENDM
		;The interpreter operation table
.ENDC

.OFFSET -160000

	PUTLOC PCDVER, PCVERSION
	PUTLOC HIADDR, TOPADD

. = PCODE	;Beginning of instruction space

; This file is followed by the .ALP, .ALT, & .ALV files. Then COMP2.PAL[AL,HE]